home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 45 / PCPP45A.iso / utils / xqxset55 / _SETUP.2 / Group3 / XQ MSDOSSYS 5.xpl < prev    next >
Encoding:
XSetup plugin  |  1999-09-25  |  1.9 KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="System\Windows 95/98 Boot Options"
  5. "NAME"="Advanced Options (Win 98)"
  6. "VERSION"="1.12"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Disable "Double Buffering""
  9. "TEXT 2"="Enable "Double Buffering" only if needed"
  10. "TEXT 3"="ALWAYS enable "Double Buffering""
  11. "DESCRIPTION 1"="Double Buffering doubles the default buffer size of Win98's use of the hard drive and results in enhanced performance."
  12. "DESCRIPTION 2"="NOTE: Some of these items may not work on Windows 98 Second Edition."
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  16. "COMMENT 2"="Thanks to CptSiskoX and Pierre Szwarc for their help!"
  17.  
  18.  
  19. 'Declaration of some constants
  20. sF="C:\MSDOS.SYS"
  21. sO="OPTIONS"
  22.  
  23. 'Called when the Plugin is started
  24. Sub Plugin_Initialize
  25.  If GetWinVer=3 then
  26.   Call FileSetAttribute(sf,"S-")
  27.   Call FileSetAttribute(sf,"R-")
  28.   Call FileSetAttribute(sf,"H-")
  29.  
  30.   i=IniReadValue(sf,so,"DoubleBuffer")
  31.   if i=0 then 
  32.      SetUIElement 1,true
  33.   else
  34.     if i=2 then
  35.        SetUIElement 2,true
  36.     else
  37.        SetUIElement 3,true
  38.     end if
  39.   end if  
  40.  
  41.  else
  42.   Disable
  43.  end if
  44. End Sub
  45.  
  46. 'Called when the Plugin should validate the Data the user has entered
  47. Sub Plugin_CheckData(ElementIndex)
  48. End Sub
  49.  
  50. 'Called when the Plugin should apply the changes
  51. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  52.  if GetUIElement(1)=true then
  53.     i=0
  54.  else
  55.     if GetUIElement(2)=true then
  56.        i=2
  57.     else
  58.        i=1
  59.     end if
  60.  end if
  61.  
  62.  Call IniWriteValue(sf,so,"DoubleBuffer",i)
  63.  
  64.  
  65.  Call Restart()
  66. End Sub
  67.  
  68. 'Called when the Plugin is about to be removed from memory
  69. Sub Plugin_Terminate
  70.  Call FileSetAttribute("C:\MSDOS.SYS","S+")
  71.  Call FileSetAttribute("C:\MSDOS.SYS","R+")
  72.  Call FileSetAttribute("C:\MSDOS.SYS","H+")
  73. End Sub
  74.